10 PRINT"[147]":POKE 53280,5:POKE 53281,0
20 IF PEEK(49152)<>76 THEN LOAD "HIRES",8,1
97 :
98 REM INITIALIZE VARIABLES
99 :
100 HIRES=12*4096:DRAW=HI+3:PLOT=DR+3:MOVE=PL+3:CLSCR=MO+3:DMODE=CL+3
110 SELPC=DM+3:COLOUR=SE+3:BOX=CO+3:TEXT=BO+3:PRNT=TE+3:CHSET=PR+3:TRAP=CH+3
197 :
198 REM BEGIN THE SHOW
199 :
200 SYS HIRES,1,0,1,2,6
210 SYS DMODE,1:SYS SELPC,1
220 SYS DRAW,33,168 TO 33,87 TO 133,87
230 SYS DRAW,33,86 TO 133,86
240 FOR K=1 TO 5
250 FOR J=37 TO 133 STEP 4
260 SYS PLOT,J,84+16*K
270 NEXTJ,K
280 FOR K=0 TO 5
290 Y(K)=RND(1)*80+88:C=RND(1)*8+1
300 SYS COLOUR,1,C,6
310 FOR I=0 TO 8
320 S=43+K*16+I
330 SYS DRAW,S,88 TO S,Y(K),2
340 NEXT I
350 NEXT K
360 SYS MOVE,34,88
370 FOR K=0 TO 5
380 S=47+K*16
390 SYS DRAW,S,Y(K),3
400 NEXT K
410 SYS COLOUR,1,0,1
420 SYS PRNT,11,15,"79  80  81  82  83  84"
430 A$="10 8 6 4 2"
440 FOR I=1 TO LEN(A$) STEP 2
450 SYS PRNT,6,3+I,MID$(A$,I,2)
460 NEXT
470 SYS COLOUR,2,0,2
480 SYS PRNT,14,2,"ANNUAL SALES"
490 SYS COLOUR,0,0,6
500 SYS PRNT,9,17,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
510 SYS PRNT,9,18," B A R   G R A P H S [146]"
520 SYS COLOUR,5,7,7
530 SYS PRNT,12,20,"A R E   N I C E"
540 SYS PRNT,2,22,"I N   M U L T I - C O L O R   M O D E"
550 GET A$:IF A$<>CHR$(13) THEN 550